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as 108 CC1CB3) = CCHIBSOTIPL2) COLooes) 
roa) CC1tGis = CCHIB3)9CCHiSed Cr 00860 
rd.) IF ACCUCOIDD 812,012,108 Co. 00870 
mm coLoca7 
an c UCTIPD MOT (0.-°. CAC AERO 10tYD, joInre Con 00880 
mm 10D TSTCAOD © OLRI/TSTCLICCCAC@II7CO11) © TSEL2DD coro0es0 
m TS763O) = TEtiawrersti2r COL Oe 700 
ne TSTCEB) © CCVIMe? - TO122) caL00710 
to] TST¢ De) © BOL - CCliged COL 00720 
we TSTCSBD © TSTCISd © TSTITB TST LoCTSTA3Or - TSti2ee COLe0730 
my TSTINS) © UTSTCLOD © VCCOdd D2) OLOOMO 
™~ TSTIG7) = UTSTI20D © VCCOH+ cz) CULOOMNS 
ms TSTts2> = TO122) Co 00 me 
™s THTCNS) © COLLIN) LOOMS 
a TST«NO) = COLO) cOLOO7SO 
ae TSTCBOd = TESTS) © TSTCLOrAN2D cor 00770 
ne TSTCHL? © TESTIS) © TSIC2U9O'2) Cor 00780 Py 
r] ¢ COLOO7eD 
es OO 110 Iot.2 OL 00780 
fo 4 TSTCLOSO) @ FSTCLod 2 MCQvecTSrisekI? © TSTChe2wrd Cor 00800 
aI TST ceed © ISTELORBISTSTOLe2 7 Cor 80818 
ma TSTCWS) © STU LORE) COC PoOCSr oTST Cees diDi 3) © Di Sretstowens COL oos20 
= TST( Lode) © TSTElewLh © TESTS) OL 00830 
= TSTC LOMB) © TSTCCeMB) © TSTiVSe/TSTCdeR2recTSTebesa) - TSTC1eRBd)} COL OOD 
a? Co Come 
ro] #100) PITCH, MOLL AT TIP C.G.¢ COL 00880 
ri] TSI(SO) © TSTCwM oTSTIle3Or COL 00835 
ps CCUM) © CCALGBD © TETIbeBOreCCLIGS? - TETedoBr0ee2 © TST) e3OCKL OOBEO 
a b2°TST C1 oNS2 Os b20eTSTi Lees) © TSTtSOr Co. 00870 { 
td CCLIMBD © COHIGBH © WSECPeBOISICCLIMe? - FSTibePerrvee2 © T$Tit3OCM OORRO 
a3 LOTST Aes Oc i121 eTSTiseI2s © STS) Ch 00890 
a Cor e088) 
td) ¢ 20ehtO) Yabt--AERO ONL vere COL coes2 
ta] CRIBS) © CD20) © TSUN BOIOCIFCHLGS) - TSYileM reed © (CCH ICO OORT 
a? bs TSTChoPerreeh © CSTE Rous re TSTE Lewd) © TSTUle S20 els Tibe 32h) Ot ICR OOO 
fl an COL Coes: 
td ¢ COLooses 
mm 1t@ CONTINUE Coa 00808 
en Cor.0csi0 
mm id ROTATE FOR STRUCTURAL 1101 Caceceze 
en U8) COLINOOD © CCHLOBPCOSOLE! © CCHIOS) Sint) COL 00830 
Eta] COLUIOID = CCLCOB2SCOSOIE) © CCHISBPSINOI 3D COL Gone 
an Ce 00850 
ta] ¢ CAM. OIST. MISC. SEIGHTS. UNIF OVER BOX PLATORM.** COL 00860 
ew O52 TCS1R0O) © Coach) Cea 60978 
mm TCS120G) © OPOT 13 /SB0" cm 808s 
i. | 1CSt 2350? = ICS(2N9) O17) CoLece7s 
ro) TCSI2e7) = TCSI2VS) © CCLIGID co.00877 
1 Ce 00078 
a= ¢ PRint ON IP 13° COL ees79 
a3 1706009508 aO. 1120,003 
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sapnadmimn se aoa ome 


PERSE SE Eee eee eee | 


Weul LISTING 


oese CONTENTS 


C120 WRITES, 900) 

WRITE (6.9001) 
9001 FORMAT (3GHO eTIP CATA. TST a CCI91-1076%) 

WRITE 16.903) 

00 800% W1+91.107,5 

MB oe M1 © NCH) 

RUTE CG GIQINI CCCUCESD Sh omel meat 
SOC CONT IME 

WALTE (6,905) 

OO 8060 NI°1,50.5 

2 eo mio WIN) 

WRITE 1G BOLL ATST ENED A beoed MLD 
9060 CONTINUE 


PONE OST. ITEMS 1 AD 2. 8 DATAVITEMes 

us Poe 1 

OO 130 wet 2 

Ko N*RDIG) - NOLO) 

OO 51% tote 

= Ket 

TORCL) © OCreTiLenD 
01% CONTINUE 


eTEST FOR Cace 

1F (TORGS)) 130,130,015 
1S IND > InMMDe t 

CCIine3O> = TOR) 

CCLINe Ie) © TORI2I 

TCE(2N7> = TCSI207) © TORE 

WF APORCRD - OCI) DIG ENTLOIT 
13G  CCLIN® Ie) © TORi2) Boz 
UL Cute © Tams) 

OF CTORGZ-Orded 116,118,019 
118 CCLIN® 3B) = TORt3) Sor 
118 TTEbd © COLINGD) 


1F (1919510 ,9510,9515 
SSO WFC tPA 19019512, 5512.51 
Wie MIIE6 9913) 


MTOFLOW CHART SLT - SHEEP 


MING AND CHPINUGE POOLE - 


COL 00869 
COL 00990 


Cm. 01000 
coLo1o1o 
CaLo1020 
COL O1070 
COLOID? 
cL o1e* 

CH. 01059 
m1.01060 
CL OLON 


cOLOtL@0 
COL01030 
CoLonLss 
eA o1ive 
CoLonii6 
coL01120 
cm01130 
COMING 
COL91150 


B13 FORMATO IMI. S7K.SaHe* CTOT2 (CALLED FROM MISCNT - LOOP 130) - 18115 


op ee) 
c 
Wis Cai Crore 
TOR(9) © TORCY) 
16 ORCS) - OCHIY 120,420,121 
120 TUR(G) = TOR. HberTi@) 
121 CCL Memed = YOC2) © TORS) 
TTCL@) = CRDINGI2) 
WF AVEURD = CCUMoN2td 1210, 1212, 121% 
W210 IF CCS) = CObeeadD 1250, 5203, 1215 
TRUE TTCL@D © CROINIBd/UVCIF? - VEISIDOLYCE TD - CChIMeN2D 
@ 1o 1215 
6212 T1110) © CKDINGIOF 
@O fo 1215 
1213 TT6t0r © Mie 
@ fo 1215 


cm 81170 
cL n180 
CoLe1190 
Cao1e00 
C0120: 
Cu ol202 
cm 01203 
CA O120% 
01205 
coLeizes 
coLer207 
CoLeiz08 
CL 81208 


121 TTCGOd © CRDIMIIL) © (CCH CMoeze ~ VECEDEZEVECS) - VOCE) CODING LOCO OI210 


Od > Gioia 
O21S THEO) © FTELOD eves dor 
Olea?) © TT11eF 


TTthd © CCl ine ww) 
Can cromz 
TeRi@) = TOR19) 
WF cTOmCS) - OF1d12z, 123,123 
12@ TORIO) = TORISTeYC19) 
123 COL thew? © YCIR? © TORTS) 
TT. @) © Co@inei2) 
WF CYC! 3) = COLIMeNEdt 12350, 1232, 126 
1200 IF C¥CSE - CCR coeNGD) 1291.1233.1275 
URE TTE1Gd | CODE @esevii Fe - VOISPIELYE CT) - CCLINeNGED 
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ei2it 
caLei2zi2 
cm ei2i3 
Coer2is 
e298 
cei e1220 
Coe1230 
COLO 
cm 81250 
CoLeizeo 
Cr eiess 
Cm ezez 
co e1263 
COLOI2es 


Breer tut LISTING @UTOL OM CHAR] SET - SEEP WING AND EMPENNACE MOOULE - 

CAD © seoe CONTENTS eevee 
b ] 00 10 1235 cm 61285 
™ 1232 TT110) © ODINGIOD CH 0126S 
BT @ To 125 01267 
ba] 6233 TUNG? © Oxdince co 0zee 
Be] 00 10 1255 cm e268 
Pe] 12He TTULOd © DKDINGTTD © (CCH UMONR? - VCURDEZEYCIS) - VOCE) )¢tOKDING 1OCOLOIZ70 
MI Ud = OKDINCI EDD coL81271 
we 1238 T1610) © THILO eved30n cCoer27e 
pS) CChinei3in © THEIed 01273 
mm» ¢ Lee 
ms cele 
6 "CALC EQUATION OF LINES CoLe1200 
a7 TOR(M+S) © CCLINe 3B) - COLIN HE ce1290 
we TORIN*LILD = CCLINSSB) - COLINGS2) 0L01300 
™ CCLING MH) © TGRINGL LI /IGRING®) cm 01310 
yn CCLINGTH) © CCLENSNZE - CCL CNO BI OCC LING Pe? coLo1320 
™m COLI FS) © (CCH CMONSLD ~ COECNC127)9/TGRINGS) COL01325 
mr COLI = CCLING1272 - CCLINe Pe) CCI tne 135) 0.01326 
™m TOR(3O? = CCL (Me We PeTANDCS) © CCLOIS) - CCLINGS2) COL01330 
™ COLINCSOD © CCLINe WI 7COS01 3) - SINDI3)*TGR« 30) Coss! 
by.) CCLINC@S) = TGR( 30) °COS013) OL.01332 
os TOR(3O) © CCIINe BB. °TANOC3) © CCLOI3) - CCIINGG) coL0135 
m CCL Ine) © CCLING IB) COSOI3) - SINDI3)°TGR( 30) COLOL33S 
™ CCLINGE2) © (TORESOD*COSOLS) - CCIINCOBEDZICCIINGe) - CCIIN-S0)) COLOI337 
Pr COUCHES! © CCHINCRB) - CCI(N*SO) CCI INCR2) COLOIS3S 
mo TOR(NO13) © TORI) CoLoiwo 
ms Lei m9 
mz MEIC = EQUATION REF TO AERO Yo COLO1 0 
m3 TOR(MO17) © CCLING 3B) ~ CCLING Re COLO1 380 
ma TORING 1B) © DC2V/TORINOL TD OCCTINGIOD/(DILD © TORIMCR 3D) COL01370 
mm TORIN®23) © TORINS19)*TORINC IS) COLe1 380 
ws TOR(30) = ICCL(MOIBd - CCLING REDIZICCHINGSH) - CCICNeSOI) COLO1 eS 
a’ COULNCSO) = CTORING23) - TORINGI®)D/TORINGI 7) OL. 01 380 
= COLUNCRS) © TORI 301 TORI 30) CCH INOSO) COLO! 395 
™ CCEINCG2) © TORINO ID? - COLINeWIOCCHINGSO? COLOI4O0 
3 CLI LO 70) = TORSO) STORIE 1G) - CCL ImeSO) CCI ING6) COLONES 
Rr COLCMOINS) © (COSCO SID - CCLCMOI272P/ICCEING) - CCLINGSOD) CDL01406 
me COLINCIN7D © CCLIMSI27) - COLUMNS) CCI INO 143) COL01407 
m3 CLOIsiO 
mm» *YEST FOR SPAGIISE DIST. GK. YiMIODe CLO1420 
ms UF CTORIGI) 130,130,124 OL01430 
. te CCLING IS) = TORE) COLOIWHO 
Po 1 CVORIG) - Otto? 125,126,126 COLO14SO 
me 123 COLIN 3S) © TORE) BO COLO1460 
™ ¢ cm 01Nes 
900 *V(MIO) POST GE GETHEEN VIIS) MO YIOR . COLOIN70 
=e “TEST. IF MOT. USE MID-POINT? COLolNed 
2 (8B UF (CCH tmeBB) - CCLINe Wed) 127,127,128 COL01-80 
903 127 CORN BS) © KCCI oe Bed © CCLINe BBD DI2) cm 01500 
bad ops Ts COLoISIO 
Ld BB UCC Hie BS! - COLIN RB) 129,127,127 CL 01520 
60s 12 i Saas = CCLiae BBL OCCH Me Me? © CCLINe 7B) COLO1S25 
eo? TOR(3O) © CCUINe Ee Tai 3) © CCLOLED - CCLINGW) Cm.01530 
ves CK i theeS2) © CCL IMO RBI COSOIS) - SIMOCS)*TOR( 30 COLOISS) 
208 C1 tee0RS) © CLL iMepe? coreisi2 
Lit) COLI) © CCL SPD coLo1s33 
ii! CCL tong) © CCL iMeNm) CL OIDO 
oe C1 theemG) © CLL inewe? COL 01950 
ws Kites = “Chine de) CL eisee 
an CCtiem. © oie RBE 0.01570 
ws TTUEE © COntmeRe? co rs 
e106 THB © OCIB? Leis7e 
5 wi? Can Crore 01573 
f 210 THCO) © Dimas CLOISH® 
¥ a0 WF CVECRD = COL tee) 0290. 1282.12 LEIS 
we 1280 UF CYTIS) = COL iewer? 1291,1283.1205 LOIS 
wai SEBEL TTIIG) © CDincSerever 7s - VCISsVec ved - COT iter coL01977 
uae 0 TO 1265 CoLeis” 
3] 182 T1118) © OxDiniie cis 
4 bad @ 10 1205 cL 81500 
2s 1293 TTc18) = Owes Ch 81581 
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S1Om 


we 
a? 
uae 
we 
LP) 


“3 
ew 
933 
an 
b> -] 
ws 
037 
ww 
an 
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SERS ES ES ES SEES Oe | 


MUTOFL Ow CHAT SET - GELP 


WING MO EPPCMUGE OUT - 


VOUT LISTING 
eccee CONTENTS eeee 
eo fo 1285 cmesaz 
L2Me TTGIBE © CMDING LED © ACCT UMomeD - VOCE DE EYCESD = VECEHIIOROIN LOCO OISSS 
Ob = DROINctied CO0lSey 
1205 Tete) = THesererci3or cm 81885 
Clie h2a) = FTIIOD cm 61586 
COLcMOLSSP © CCLINCI SIF co 61507 
CChineod Si) © CCLINGI2RD COLolsen 
¢ Ch 01588 
TORINCIS) © TORIG: (0.01590 
TGRINe2S) = CCLING BBD - CCLING ID fee Gh) 
TORI TD © COLINCNO? - COLING 38) 0. 81600 
TORING ID) © OC22CCHINeSORZI (OIL IOTORING ESIISTGRING DSI © IGRINGISICOLOIGIO 
LOTOMINe? 7» ¢1O1E) © TORINO IS)9) COL01620 
THRINORLD © TORING 18) *TORINS 13) CH. 01630 
TORINC23? © TOR(N2ZL1*TGRINGIS) COL O1ENG 
CCEINCTO! © TOR(NS25D DIZ CC TGRINGIO) © TGRING2IDD CHL 61650 
CCIINGS2) © TGRINSZTH/DI22*¢TGRINe21) ¢ TGRING23IF COL 91660 
CCHINCSE) © CTGRING2ZTI = FORINGIG) I /IGRING2S) COL 61670 
YORI 30) © YORING251/(CCLINeSH) - CCICNSSOD? CLOGS 
CCUCN6G6) = TORI301°TOR1 30) °CC 3 INO SB) COL 016% 
CCL INOG2) © TORINCIO) - COLIN WIoCC1IN=@ SB) cr 01680 
CCI the 7D) © TGRISOI STOR eo 19) - CCLINeSOD OCC IINGB) Co 01685 
TORI 3O) = TORINGZTIZICCHINGSE) - CCLINeSEDD 0.01685 
COLIN) © CTORING231 - TORIMe21))/TORING2TE COL 01690 
COLOR) = TORL 30) © TORI 30) “CCI INGO! CA O16SS 
CLUUemed © TORMIMEZI) = CCUENO ISI MCC (NCEO) COL 01 700 
CCL te Fe) © TORIIOISTORING2ZI) - CCIineS2) CCI INGO) COLOITIO 
CCL ibe TBP = CCLING MD OL: 720 
CCICNOOO) © CCLING TRF cOLO1730 
CCEUNC@ OD © COL INE2? COLON 
CCLINe@O) © CCLINGSS? COL01 50 
COUCH LHS) | ICCLING 2D) = CCUCNOI2Z7ID/TGRING2S) COL 61760 
COLO 37) © ACCHINOL 3S) - COLINGS IID 1/7 TGRING2 TY CMO! 
COLIN INS) = COSOLSI SCC HIN t 35) COLOI a2 
CLL e eS) © COSOIS)CCLINON 37D COL 81 Bs 
COLIN LIB) © COLINGIZ7> - CCLIMCLIS}CCC LING) COLON 
CCLIMCINED © CCUINCEBED = COECNOISTIOCCE (Ne 361 COIS 
CCLIMOIN7D © CCLING1272 ~ CCOLINGI4N3)°CC1(NeSO) COL 01766 
CCAM 14O) © CCLINI BED - COLINGINSIOCCE IMeS2) COLO1767 
ch 8178 
cm e177 
PRINT ON IP 13° co 01 TRe 
HF C07 0130) 12RD, 1299, 130 
(P79 WAS TE(6 900) 
WRITE16 9002) 
9002 FORMAT (HD DIST LINE DATA. TOR AND CCI) 
WRITE (6,903) 
OO 8005 Wied) .152.5 
2 © wt © NDIWD 
WRITE (6. OOZIME CCCHCTED Pema m2, 1) 
9005 CONTINUE 
WRITE (6,906? 
00 9008 Nie1,160,5 
Keo MI + Oe? 
ITE 6B. BOZINT TORI ELD, Breet K2.IF 
9008 CONTINUT 
LOOP FOR NEXT LIME cm eis 
130 CONTIN CL 61770 
co The, | 
SETUP CAC STATUS 10 FOR AHO AOD STMT, © EACH L601 780 
OO 13t fe1.% co 61 0 
COUCNo1I3) © CCNCIe3Or mei 
CEUCTONETE © CCLiLesOs CoLei 2 
131 CONTIME Ceres 
¢€ C6178 
is 20eCOME. POINT ITEMB cee co01800 


133 00 138 1.6 
wo memos 
CCLIND © Crest ixe(ss 
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7100 


SESPERE ESE SRT SERRE ES 
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Efesesegs 
= ~ 
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INPUT LISTING MUTOTLOM CHART SET - SEEP 


seco CONTENTS. 


¢ 


¢ 


CCUING IBID © CChIMD 

CCLINGIO7! © CCTINE 

IF (CCU I9. £39. 
ih 1s IM? I 

CCLINGS? © Dredtixei6> 

TCSI267) = TCSt2N7s © CCLIND 

WF cCCLdMeS) - OCLPD 195,195.136 
tH CCLINeS! © COLINGS) B02 
TRB TTth © CCLINeS? 


IP CIND S26, Wet S425 
21 ICIP CS 22 22.5525 
22 WITE(6 9423) 


MING AND CPPEWNACE MODULE - 


cn 018%s 
cele 
COL O10 


cm 8185 
ca 81680 
cm 81870 
cL e:680 


‘23 FORMAT. IMIS Sens? CHOT2 (CALLED FROM MISCNT - LOOP 139) - [P11 


ey 00) 


3625 CAL CTOT2 
CCL IM 12d © OMT IKel 7) 
OF CABSICCI ING 1292- 06100137, 138,138 
137 CCLINGL2) © YCISIOCCIING12) 
USB CCLINGI2) © YCI2) © CCLINGI2) 
TOR( 30) © CCLINSG)*TANDIS) ¢ CCLOI3) - CCLINGI2) 
COLINSDY) © COSO1S) *TGRI SOD 
CCLINC1B) © CCU(NOG)/COSOIS) - TGR’ 30) *SINOI 3) 
CALC [Y10),1K10) CEPTW TERM! Keil eDIIIe 


O63) © FCOMAN,OK/C) 
TTC1O) = OXDINGI2) 
W CYTES) ~ CCLINOS22) 1380, 1382, 138% 
1990 1F LYCCS) ~ CCLiMe12)) 1383,138) 1385 
1384 T1110) © GOING? 
@O 10 1385 
aB2 17110) = OKDINGIOD 
00 To 1385 
UBBS TICLOD © CROINIDIZEVEN 7? - YCESPDZEYCIT? - COLINCI2I) 
00 10 1385 


101900 
coLoIsIO 
coLole20 
0.01930 
COLOIMO 
COL01930 
COL01960 
COLOIS6! 
OL 01960 
qmeigs2 
COL 01983 
co oI 
COL01965 
CL 01986 
OL 01987 
CoLoIsSe 
CL 01959 
cm 01970 
COLO1971 


13M TTCIO) = DKDINGIDD © ICCLINGE2D © YCCRIIZEVECS) - VCCLD) C1 DKDINGIOCOLOIST2 


1d- ODINGEEDD 
1385 TTC10) = TreMOrevCr3Or 

CCIINGH2ED © COLIN) OKDINIGHSTTCNOPeTTIO) 
139) CONTIMUE 


c PRINT ON IP 13¢ 


c 


anna 


ULL CUTE IYO, 140,150 
190 WRITES 900) 

WRITE(G 9003) 
9003 FORT (PHO °CONC ITEM DATA. TOR AND CCI? 

WRITE 16,903) 

BO 9006 Wie1,30.5 

2 eo NI © NIG 

WRITE 16. SO2INE CCCHCEDD FLOM) m2, 00 
S008 CONT INUT 

WITT (6,906) 

OO 9009 Niet .100.5 

m2 = 1 e NOIND 

WRITE 6B. QO2INE, CTORCDLY Ubot K2,ab 
POON CONT IME 


SIMSEORATE MISC. WTS. ¢ 
136 CML MISCIT 


#900 EXTERNAL CONC. WT. ITEPGe* 
CAL CO 


SANE INTEGRATION RESULTS IN Critic l-1500" 
$00 00 SC: f-1,118 
CHteleDB) © FCSiesse 
901 CONTIN 
OO Sez fet .ti 
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COL01973 
COLOI9™ 
qos 
COL. 01880 
CL 0) 988 
01989 


a 


LAL ad 


SSESSERSESESSHS RES 


dom LST ie MUI LOn Commi OT - BEEP WING AND EPPENAE MODULE - 


esee CONTENTS oes 

Cultiders © Pesci co 15088 

CULELeS) © POSCeottd col S078 

CULULRSt © TeSclezer co 8080 

S02 CONT INA cer 18090 

CULEENTe COLCOLD COL ISi08 

CHELCIN@r= POSIZ0er COL ISHIO 

CUTLIWOr= COHUBED © CCHUSSD © CCHESS! © CCIW CH 15120 

CHIE CIS8I © OCLs? CL S138 

OO 503 1°1,6 COL ISING 

CHL 11SO) © CHLTCISO) © CCLCDD Cm 19190 

303 CONTIME COL 19160 

€ cm 15108 

¢€ “CL DaTar ma se 

OO SO J91,7 ce 19180 

Thani lo357) © TCSt 19827) CL 15100 

30) CONTINE CR 15200 

OO S05 f21,.& co see 

Tei 1e188) © Tescteied) Cor is220 

905 CONTIME COLIS230 

i is2 

OME MISC AO GUN CO we COL IS240 

00 Sos I°1,.98 cm 18850 

TOT 10OB) © CCLETOROLD cor 19866 

908 CONTIME Cm sere 

~ 60) 191,353 Cer 18200 

Tet be233) © CCHLIsIes? COL 19290 

TOC TORRE) = PCSI2ESr CCIM 1 HBOL) © TOSSES CCH Lok Ped oCC1 61 2ST) COLISIOO 

907 CONTIME cm 18316 

¢€ CL ISI20 

c PRINT SUPURY On IP ine CL ISz30 
1F 1 1P 614) 1908.58, 908 


308 WRITE (6,509) COL 50 
SOB FORMAT (WMH «¢oorTlSCHT GUBR. Fl CHIL AMD TWIT ARRAYS¢*?, OL 15380 
1 OX, 2ie* MISCNT - jPLIN) 997840 CHL) 


¢ CA S388 
c 
OO S163 1.156,5 
K = eeDIe? 
ALTE (6, G02, CCmHIICD) TOM Kt 
0163 CONT IME 
c 
S18 FORT (e40 TVET) COL 13870 
WRITE (6,510) 
00 10% 1,250.5 
wo MON? 
WALTE (6, 002000, 0TVNTIT), 190,K 0D 
ObOe CONT IME 
€ 
c COL 1S388 
¢c CoLseeee 
¢ oxi teo Coon! 
we MTU Corsese: 
Do co seees 
Covcccoosouecresececcccccensecossucseccvescocssccceccesevocsceessccusees 
c 
¢ MMROUTINE MISC IToesee 


C = POISE CONTENT MEIONT INTEORAT IONS ce 


DBRT IME MISCIT misiesie 
¢c Cer overe 
¢€ SCOCOPCENTRATED Od MO MISC DIST. MT. LOAD WO INERTIA. 9° °C 00030 
¢ ceeeene 
€ 9¢ RE VISION-O1-15-73-4 FORA. oa 0038 
¢ ORIG i. --81-17-O8. fas Nuva 
¢€ CoLeee ve 

Conan tT Cer coees 

COPPION /IPRINTs 27708) Co cees; 
€ COL ooese 

OPENS ION T6G228 012088) .CO1 2000) .ND1 100! OC 166), cor eeiee 
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tai aa! (PUT LISTING AIOTLON CURT SET - SHLEP MING AND EPPLNNAG MODAL - 
Can 10 eens CONTENT > eoee. 

on 1966300). Ma -UG),CF 0) PCS1250) CHSC ISOS TSTiS 20, THiae, co ocie: 
we BVC 1150), Tae * £018) SINDIG? .COSOIG) TORI 100+ TEC ES TGACh FS) COL OO182 
wi BteoCths. co 0018s 
re SC10v1150), cm 80105 
Ltd COPE 1351 .OCOL 1108) OTIPIIS), OXO ING 15) CxO SOD Cor 00108 
ow ¢ CL 8118 
os Ae Sas ME es ee CO se120 
oe HED EDD OCINO1YD ATOLED TEPOOUDD ATG LD TERSORDD ATSTOND 181 PObDD COL OCIA! 
nr RECT TiSBE NY ATTEND Tawa ey eCCUC td COULGSEDT ATCSEED COUNOlD? COL FOLee 
owe BACH NALD COCLSGN Nd CTRGT DT RPSL CTA TGS FD CCCLS. TABS 90, Ca OOl23 
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pe ¢ co 633308 
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c SCCCONCENTRATED Oh AO MISC OIST. WT. LOAD WO IMERTIA. ©*9Cm 80030 
c Cen 088 
€ oo VIS ION 3-73-09 FORT. cm eeese 
ce mieina - 17-€8. Cm esse 
¢ cm 00078 
Coren 7 Ch 08688 
Coreen /1PRINT/ 17:00) Cm 00081 
€ co seese 


2286 


B18 


Caro nO 


sae? 
1208 


1237 


UNPT LISTING MTL OM CHaRl SET - SHEEP 


aonnnannan 
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COL 1100? .OF m2) 
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DOSE DD Oe bO11) ATGedd TEPOOM dD aC TeCh? PEL BOer UFSTAde en OL 
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O.CClOvEhO  TeSOLd Came ds COLIS5nD 
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CONTINUE 
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1208 60S TOR(ZE) © TORIZI vcs! cu carte 
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teas c TEST TYPE FOR 110) CC® coLoes20 
1207 ¢ B= 10PUT 110). MOT ZEROS INPUT KCLY.EM,IZ) IF OATA ITS §©COLOB350 
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me Toniest = 6 cm ense0 
Tye TRG? © cor eese0 
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1a U0 0e@B) TORt 1670) * TORTI 67001 cm es 700 
13 ‘8978 CONT IME cu ee7i8 
1Pee cu esree 
1m € eoemERO 101Y,K,2) AT C. ©. MEGD FOR W MUL YSISee* Ca OBTI0 
ne € *1004Y, 4,2) AT CA FOR AERO SYSTEI:* m7 
1m? O18 TORIDID © TGMLLG) © TOMELDI CC TORIISICTORIIS) © [Miele ORIWIT meen 
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nee SOB TF 1K = MOLLID) S280, 444 ee cm oszo2 
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IF (TGACKe22) - TORI19)) 438,43 438 
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c 
€ S27 1-G WIT DATA FOR WT ANALYSIS<ce 


ISTING AUTOFLOM CHART SET - SHEEP WING AND EMPENNAGE MODULE - 


CONTENTS 


CQUEWLENCE CFLVECED  FeeeSed CPL VOCED Tee Fbld CLT End, FaeSe01, 
COFLOR CED TeMOMed CFL TACED TEMS PEP LIZED D eee, 
QCCOLVECD? FeROSed CCOLMENL) FARSO0) tCOLTIGh) TaSSi2, 
BUCOL VOCED TUPe20) COL METLD PC IS3)? SCO T2059, Ti S6NdD, 
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OTT Cae? OPMTL BC IS) OMTLPLIS?, malcoo7i 
OTPD1 300) , TH 160) MAICOOTS 
¢ MaTCO0SO 
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1F cM 160s - The21) 168.118,120 
UF CTC 10507 107,107,109 

Ws IN) 

1F ¢MOs185) - TTI2)) 110,818,120 
UF CTP c2tOnd GNPLNT eed 

we OLS) 

AF CTPOCZ1Od - TUE29) 112,018,120 
WF cteOc 2750) 07007 

Ne NDC6) 

iF cMM(!f75) - Tc]) 017,108.120 


OOREGD TOP LESS THAN TEPH CIT. RITE ERROR MESSAGES? 
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116) FORMAT (GBH- ¢°eMATL TEMPERATURE ERROR. MATL NO.FW.1,50H. ALOD TMATFOS 
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MATFORS 
PAIFORD 


©OREQD TEMP OUTSIDE RANGE OF TEMP SETS--WRITE ERROR MESS. MATE OSS 
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(CONTINUE 
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CONTINUE 
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CONT IME 


OUEST CURVE °° 
1F (Ot2) - Kd 4B, 168, 148 
IF STMCKOLIS) - TTCSerd 148,150,150 
TTCaed © THK IS) 
TT¢3) © THiKe sO) 
TTd4) © TKoli2) 
CONT IMUE 


esTEST FOR TENSION OR COMPRESSION FITS? 
UF che + CED) 151,151,153 
we MDZ) 
THY) © TIF) 
THe) =» TTie) 
OO 182 fe1.7 
THChe@l © THite3e) 
CONT IMU 
@O To 142 


SeeTEMSION. MOVE BEFORE ExiTess 


THT) © THF) 
THIS? «© THIG) 
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MATE L050 
ATF 1060 
ATF IO™M 
*TTELesOnD MATE 1080 
PATE 1090 
MATE 1100 
MATFIIIO 
MATF 20 
MATFII30 
MATE 11450 
ATF 1150 
MATE 1160 
MATE ITD 
matrii00 
MATF 1190 
PATE 1200 
MATF 1210 
MATE 1220 
MATE 1230 
MATT 1260 
malt 1280 
MATT 1260 
BATE 1270 
marr 1200 
Mar 1290 
ATF i300 
MATA IDO 
mall 1320 
male 1330 
ATF IO 
MATT 1350 


AA de 


= s 


a1 


CamD ND 


637 


ul LISTING SUTOFLOM CHARI SET - SHEEP 
sees CONTENTS 
¢ exit 
198 RETURN 
Lf) 


ING AND CRPENNACE POOLE - 


MATE 108 
MAI 1950 
MATT 1060 
matr 1870 


Coccccccncsencccanscucsscescencuescoucessueesescusecauegueussueceurasee® 


*SUBROUTINE MIL PHesess 


SCOMATERIM PROPERTY DATA PRINT - PETA o¢e 


Cocsccecccccsccsevecccuuccaueuusecsesccecsecouurecacusasvccuecesevuscsen 


¢ 


anaan 


c 


107 


SUBROUTING MTLPW 


ATL PROP. PRINT SUBR 


COPPION 112060) ,01 2060) .CO12000> ,ND1 100) 


OIPENS ION 
11200), 
46 1G), THDL 300) OC 1100) 


CQUIVAEMCE 10C11),COIsO1d), 

VETPOCLD TCA DOLDD CTMEND Fe LGeteD, 
25 THOC2e5)), 

SEVTIO 0128991, 
GUNC AGE .NDI60)) , (MPACE .NDIOS)>, 
BUPMATE | ADC221 CNN NDE26 90, CL NDESE DD 


COOPRINT TITLESS*? 
IF (tee - NCDP) 101,101, 10% 
WRITE (6, 1O2)NCASE ,MATLI 
00 TO 105 


FORMAT (10H CAGE 14, 13X,.SOH -9°-TORQLE -BOX MATERIAL OATA. 


WL MD. 13,4H-0°-, 16K, 209° MTILPW - 1P018) oo) 


FORMAT (1040 CASE I4 23K, WH-°*-PIVOT MATERIAL DATA 
13,0H- 96+ 22K ,20H9° MILPW - IPCIDD oe) 


WRITE 16, 103 *NCASE MATL 


WALTE (6, 10600R01), 19.162 
FORMAT CIMOBAIO,/1H AIO) 


WALTE CG. COs Tech), Pend Teed 


mar 


MATLOO10 
PAT oot 
MATL oe20 
MATLO0S0 
man.oo70 
man ooeo 
manoso 
maneloe 
manotio 
MAILOI20 
mano1 30 
manolee 
MATLOINS 
PATLOIN2 
MAN 0143 
mAnolee 
PANLOING 
MAN 6150 
MATL 8160 
MATLOIGO 
PATLOI®S 
MATLOIS0 
mAlLoige 


MATMATL 0200 


MATL 0209 


kL NO IMATLOZIO 


MATLOZIS 
marlozz0 
maroz29 
maroe3o 
manos 
man 0238 
MATLONG 
MATLONNGD 


Format (1240 TOP of 8.2.120 DENSITY 7.6 GH 0 7.4, //96H MATLOZSO 


1 a ° 
2 Enid Gath} 


FORMAT (1GH §«6COPPRAESSION 1K,2610.8,371%.1,./16H TENSION 


¢.2€18.8.6 14.9) 


WAL TE COULD NTC 3D, Tsced , TeeeSh Peed), Tec 1S) re 7d, Tew) Tee 


FORMAT (1020 ose) epsiy) 
1 fia ran Fee Five oo 


FORMAT 11GH «COMPRESSION =1K.2F12.6.912.1.716H TENSION 


(.i2.6,.912.1) 


WRITE (6,b125 
CRITE CO. Vive recieSit tat, iee 


LTE 66,1220 T C42), TLS), Teg 7) 
FORMAT 12340 


SooTEST FOr win. --1F WIND, PRINT FATIOUE DATAS** 
WW otVTIDD 199.87 199 
1F Cpe = Gadd 1311318 
CRITE (6.1920 Tr 18) TH 18s 
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iPS 


MATL 0260 
MATLO2 70 
Lean 280 
MATL’ 90 
malLo3o0 
MATLOIIO 
WTLOIZO 
ATL 0330 
PATLOWO 
MAT: .OFSO 
OWILOISO 
MATLO370 
mATLO3SO 
MATLO390 
PATLOW00 
MATL Ori 
PATLOW26 


FTUCFS.1.GH FSUeTO.1. I Fare. 1 MATLOVIO 


PATLOWD 
PATLOWSO 
MATL ONEO 
MATLON TO 
MATL Ov80 


9°) GRNReetrennenseren: nema aire oor 


~ 
= 


iene rh cued et 


08710/% 


Cam NO 


SEESTRFRREESRSRSSERAESZ2 2223222925 


ons 


PISRAFFELTAFRRERSELESSSRSESSS 


re 
~ 


eeee 


132 FORMAT (exe 


CONTENTS 


(PUT LISTING MOON Count ST - SHEEP WING AO FPP, WE MODAL - 


FTA ALLOW) - -BE 20H. 3.00 F TU. 22H MATL WSO 


4 FTAA ALG STA 2076. 30H FUL MATL 0500 
MATLOSIO 
seetultese MATL 9980 
199 AL TURN AIL O98) 
oo mani 9999 
Coovcccgccesessuncccersusevensecctoccsnaccecesencsseoeceeceses® secpes 
€ 
¢ Sec eoHUBROUTINE MOADSseee 
C = 9° *DESIGN AIMLOAD DATA PROCESSING*#? 
¢ 
Ceocecvecesevecsecssguseveseceesceeucscueuaseueeucueceseceoeseeseueesess 
¢ 
SUBROUTINE ALOAO a.cne0i0 
¢€ #000011 
c AlmLO40 MH, V, CP CAC. a.ope020 
¢ 4.000030 
c #000100 
¢ #000120 
¢c aL000140 
COPPION: 112080) 012060) ,COla 30) .ND1 100) 2.000150 
COMOON /IPRINT/ 17°60) 000151 
COMPOON /HISC/ HISC (100) 000152 
c 4.000160 
DIMENSION OC 6100) .TSECI 300? .TOGMCNE) .THI2u), 4.000170 
ee a SO Se 4.000171 
QAPVELED ALORA) ALC ALD, 4.000172 
Matz, TRUI7) 160300) , TANDI9? .CCLO(9) .SINDIG? .COSOI6!,  M000173 
PRAT LLY, ZONED TE ALP TOUR) ALTO, M0001 7% 
S6L0¢198), 400017 
COSC 1) .RATION2), 000178 
SVSTAC (LL) QPRTIY) 4.000178 
¢ #000180 
CUUI VALENCE (O02) DUIWOLDD, CTSECCND COUISOLD), CTOGeC1) 7643089, MODOISO 
UCTTCOD TOL3T 792, CYSTACELD .VSECIIGG)), (00ND .0¢105)), 00018) 
QPS 010519, 022,018?) (OA V,0125513, COM CP OL 25607, #000192 
FIDCPCD 012579), (OCPKL 012339), (OEMS 123212, 000183 
SAALGS DI255)1 (AGAR, DI23611, (GIR O1239791, (CBI DI 258h), M0001 
SUPRA 1) 012600). 1VPNZI SD .O1GO 7D, (NZI 0) .O16GB2?, CZNNETE I) 01 709) 000195 
Gd ATANDCED, TALS200, CCCLOCED TAD SEDD CSINOELD TAtwOnd, 4.000195 
TEMLPVELD TIS CAL PPIC ED T1569 0 CALMVEL) TUS 7GI) CANDY, TISBTIALODOIST 
Od, COKPRT (ED OCW 7109, (CKOE 0139209 4.000198 
¢ aL000199 
EQUIVALENCE (B02, THN2)), 6051, FCS), (REP, FIGS) CCR TeSeed, 000700 
UCCTIP TEE TTD OTA Td BOI AREA.O1 2000), (OPCEA,O1I2700, 4.000201 
Ca lit) 02200), CTRCED TC13OOID  CEGCED TElLOOeF! MA ODO2O2 
BePWAT ELD DC bOtO)) tN ELD D6 103000, a.000203 
CAPITOL) PCO 771D CANT ILDTiOR@D, ALODOZOY 
SICOSOL DD TANG) CCOTEA, THIGPdd CAL AEF OC 23901, 4.000203 
StMOl0,0120591 (MDI 4) COI MES)? 1A 100143009, aL.000206 
FAPLDSE 1) .CD1400)) (RATIONS) .COIS3203, 010207 
Gt0P 008 NDI G39) (NOSE D681), 000208 
BU MOET, Cm MOIION D1 O12 DAL ID MOIS 1), INCASE .NDIGOD) aLape209 
¢c aot 
¢c SCO INPUT BLOCKese M0002 11 
¢ aLosoise 
c eeeSET LOAD RATIO BLOCK?}.0°°¢ 4.050160 
OO 258 fet 132 4.050170 
DSI) © OCD #050160 
0 CONTIN 4.050190 
c 4050199 
¢ a0s0200 
¢c 2° PROCESS CALC LOANS, TEST FOR INPUTCCe 0560210 
¢c *lF CAC, ©,-1V, A, TD) FOR 11 STATIONS STOREO ON ACO 22°%.050220 
€ *UD RAY SHE 46 OLN amare mosez2t 
¢c 1 -WeHING VN. S-ORHORI VM. OB-1E2°MRT VN. 4.050230 
¢c SUT3-1WWIND T. 195-1 FSOORI VM. 177-1988° VERT VL. «050231 
c SMMISC(2) © TYPE (0. 19WING, 2eHORE. SJeVERT* aLOS0240 
c 050267 
¢€ #000 CORALCTION RATIO DATA ON ACO 17--264 bWIADSS** MOSG2NO 
c REID AKO AO PROCESS INTO ALOS AMMAY--132 WORDS? MOS62N8 
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Bits 


CaO WO 


ne 
mu 
ne 
3 
nN 
m5 
16 


®@JAIAIIII AI Ig 


WING AND EMPL POOLE - 


HOPUT LISTING MSTOFLOM CHART SET - SEER 
ever CONTENTS. cece 
¢ PLOS°COPPON FOR WING, MORI, VERT? m059250 
€ 1-33MATIOS FOR ONZIVMTD, Be-66 FOR -NZIVMT) ALMLOADS* A050251 
¢€ G7-VRATIOS FOR omZIVITD, 100-132 FOR -NZi vt) One 2.050282 
c 0560233 
¢ “DATA IN RATIO ARRAY STORED I-85 WING fo.-V¥.m1 AL ¢ | AL OSO2 
¢ WS-@B VORI Co, -V.M) AL... @9-132 VRE to,-V.) AL? | 0502 
¢ 233-178 WING Co,-V.m) Cie 050256 
¢c OUT7- 100 WING Fe ,-T) AL., 23-266 WING ¢0.-T) One 4.050257 
c 199-220 WOR] 6¢,-T? AL... 221-22 VERT to. -Th ALL? 4050258 
¢ 2.056259 
200 «IF (810109 100,100.20) 050280 
20l CAL READS 11.1066), 198. 32) #050270 
CALL READS (ERATION) 260,57 A050275 
¢c 4.050280 
¢c @e°QATA STORED TIP-ROOT. MOVE AND GHITCH TO ROOT-TIPs**s MOS0290 
¢c TOR WING SET WH, ON 8 OF 4.050300 
¢c FOR MORI SET Nees, Be22 AND OW RATIOSAL RATIO® 4.050301 
¢ FOR VERT SLT GB, NON AND OW RATIOS RATIOS 050302 
we OCLC} 4.050310 
tw © OCi3) aososit 
4F tDt2d) - WHISCI2)? 202,203.20 “4.050320 
a02 N= oS 8.050330 
eo 405033! 
00 2020 +122 4.050332 
RATION 132) © RATION) ¢@B) 2.050333 
RATION LI) © RATION SIIOI A0505— 
RATION 6242) © RATION 220) 405035 
2020 CONT IME 4050336 
@ 10 20 A050R0 
aOy We Ny aL080350 
me 2 050351 
00 2130 It,22 aAcsoK2 
RAT 0110132) = RATIONS O44) 2.050353 
RATION LoS) © RATION 966) MBO 
RATIOULo242) = RATION +©IGBd 4.050755 
2030 CONTINUE sL050 756 
c 205059 
200 00 205 Iet,11 40.050 360 
me potar- 1 0.050370 
Leneol 4.050380 
uwemel 0.050385 
MPVIKD © MDL 4.050390 
MPHIKD © MDILo22t AL050400 
MPTIKD © MDILL et 32) 05010 
ANVIKD © SLDIL OIE) M0520 
MIKI © BOIL 633) 4.050430 
ANTIKD © BDILL ONS) ALOS0N40 
Toowits = ori3) AL050445 
M0508 
@PORAT |O5eee MOSS 
MLOSIKD © RATIO? 4.050450 
MLOSIKe1t) © RATIOM o22) ML050"5) 
MLDS(Ko22) © MATIOILL©1 7B) 050052 
MLDS (Ke33) © RATION C11? M050" 5 
MOSIKeee) © RATIOIL +33? ROSH 
LDS(KOFS) © MATIOILL ©1867) 05655 
¢c AHS 
MLOS(KoGS) © RATION SI 32) a.050%60 
OSIKOTT) © RATION IS? MLO50%61 
MLOS(Ke@B) = RATIO( (e242) AL050662 
MLDS(Ko9D) © RATION Io1430 050063 
MLOS(Ket1O) = RATION +I@S? MOSH 
MLOSIKor2It © RATION E9253) aLOSONES 
205 CONTIME a.050"70 
ak | 
o°oSET LID]? FOR INPUT. GROSS LIMIT LOADS¢ee SLOSONO0 
LID = mz) aL. 050490 
00 TO i162 2.050300 
¢ 0505160 
100 00 101 tet. monc220 
MPVIID © weitt m.006230 


2320 


> CRESTED 5 eT ea RRR Poteet zs: ar eereerennnccerens teil 


easier DeVT LISTING MUTOFLOM CHART SET - GEER | WING AO CPL OWE - 

CARD WO oes CONTENTS aS 
mw MP © PRIMI) 00020 
72 at) © WILD a.coozso 
3 mh) © Deed 4.000260 
7™ MTL) © PATTON 000261 
™ MANTEL) @ DWNTOTD 4.000262 
7.8 TOG) © OCs? 000276 
77 101) CONT IPA moDo02e0 
78 4.000290 
To. ¢ 4000 REF LINE OATAS* 00029) 
re 102 FRIIS) © TANOIy) a.000282 
oi TALIS) © CCLOWS) acooze3 
by TREGGH = SIMOUDD amcDo2y 
73 REAP = COSOIS) 4.000295 
Ba) WW (O10? 110,610,118 aLoso2ae 
Re] “000299 
"ss c SeeTEST LID TO TYPE. $=V.CP. 29tNPUT CROSS, Je INPUT NET***A. 000300 
77 160) tf AMDCEY - LIOD 110,120,120 ao00310 
7" ¢ 2.000319 
7 € OoeINPUT. TEST OPM OR C-SEC TYPE. M12100.0 FOR C-SEC.°** MODOI20 
@00 ¢ ©*1F C-SEC TYPE, AOD 1 TO NCSEC--ANALYSIS TYPE {00° 4.00032! 
eo ¢ CSEC*1D FOR CSTR SUBR SECTION SKIP TEST.¢ 000322 
eoz c C1°OPML TYPE. 2°CONST SEC. OR LOAD. ND AKIP. © a.000323 
03 ¢ *3*CONST SEC. AND CONST LOAD--SKIP AFTER SECEL) ANA YSISALOD0324 
or 009 LF cppezmec2ad 11,012,018 2.000330 
eos 12 NOSEC © MCSEC ¢ HOW) 0000 
eS OO itd 1=1,160 4.0005 
@o7 MPVilel} © APVILD a.000TSO 
eos APH 1eh) © A PMIED 4.000380 
eon MMViLOtD © ALNVEL) 4000370 
mite) © ANID 000380 
MPTCID = PRZTILD 2.000381 
MANTLE © ZANTOLD 000382 
113) CONTINUE a.000390 
4.000391 
@°TEST FOR LOAD REF NOT ON Eace L000 382 
21% UF FAREED F190, 1140, 019 #000393 
¢ 4.000393 
¢ SOCHECK INPUT Ree AL 0003 
U1%O IF caved) 162,160, 162 4.000395 
4.000395 
©4040 ALF. INPUT PER CENT CHORD. 9° 4.000398 
ML 11 LQUATION CONSTANTS FOR LD. ROTATION/TRANSLATION® A.000397 
FIST TROIS) © MAE MCCLOLT) © COLOCID 4.000398 
TREIGD © Tarith - 103M REF 4.000399 
FRUIT) © OULDZSORTIDEL DOTRG Le) TRE IED AL0D0400 
TREIGD © TRELPISTAC IND AL0DO101 
1F CCD 163,160,163 A.000405 
#000409 
A.000410 
Coo CP TYPE. CALC VM. TEST ALIGEOM), INPUT V.CP9¢* M0D0N20 
, 120 Toow1e) = DAY 4.000430 
a3 TOGHI9) © OALCP A.CDONO 
os ToGwi 1G) © OCPCD AL000"50 
Pi) TTL1) © WAREA AL0D0NE0 
6m Tria) © @02 4.000070 
i om 1013) © O51 a.000r80 
i 637 TTS) © Tac acopes0c 
on ithe a .000510 
‘ ove Ti) © CHP a.on0s20 
£ wo  (mOS) 122,122,121 4.000530 
or 2.000539 
y we ¢ ¢*CSEPARATE WIND OLOM. FOR AIR LOADS. oe M0000 
& om ee, #000950 
ow THt2d © OIG SORT (ALCS AGAR) DIZ) 000560 
oS THi3) = MOBI IPD 4.000565 
® on THIS) © MOS/TTC2 DI TI/1O8N) © ALOTRE m.coe7s0 
Led TT?) © THiS OM OTR 4.000800 
Oe THIS) OATTLT) - THSI/TTCeD 4.000616 
~~ acones 8 

0 c o° EMPOSEOD TR MOS. TEST FOR INPUT ve m000820 4 

i 22 TT1@) | TTIG) © TCP STIS? 4.000630 4 
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100% 


Car 


PEEHPRRESSEGPHSRREETISSSSSIISHRSRREE REE SESEI9S2 


rf 
e 


BSSeRe 8 
ges 


oe 


INPUT LUSTING AUTO LOM CHART SET - SHEEP 


eee 


las 


125 


i 
im 


140 
ts! 


te2 


CONTENTS 


Trier © TRI!) - Tey 

THA) © TreM TT 

TTAGO) = CTTAPe © ETiM@eesOriPecttewe 
OF IDA) 623.123,1% 


© CaC VIE © 
OTebad © FHCLOIsT EGE) 
THalat © Trews ties 
THeadse © Wea osereten 
THES) © DULIZETTCL3) oO Pv? 
THAIS) © OGHOPNZ/TTOLD 
TUCO) © THCUSoet maaan 
TOGHIG) = THHIG *TTION Dra) 


SOTEST SPAWISE C.P. ee 
CesGSUE. -oMEF TO B12. ooREF TOR. B72 
WF (OMCP) 129,125,127 
TTCg7) = THe? 
UF (DCP 833,133,126 
THCL7) © T3509) OC 
@0 10 133 


soc1NPUT C.P. TEST @.P. OR PER CENT EXP SPaNeee 
IF 1001) - BALCPD 120,128,140 
TOOM(9) = OALCP/ITIWD A 
@0 To 140 


eeelNPUT C.P. REF TO B/2. TEST O.P. OR PER CENT. *¢°¢ 
TOUN(9) = ABSIOALCP) 
OF (Dead - Teor 130,030,031 
TOGHI@) © TOOWIGI/TT(2) 
TTC8@d © (DUS) eTOGWIO! - OLadI7IOI2) - OF31*¢TOGHIIE 
TVCID) © TOGMCBr/CTTI29¢COCdd © THEE DPeOLeSd 
THC20) © THe eTTs 18) 
THCQED | CVVE2Od - TTCW@deeTTeSest 12) © THeIe 
THEGTD © WHO TaN 
OF (OCPKL) 133,133,132 
THAT) © TTCI7 Om 
TOGHID) SDE LdOTTAN7) © EVELFIDZIDIS) © OCBveTsiy qed 


eeTEST FOR CHOROMISE CP°ee 
FOR INPUT CPX=0, USE .25C DATA® 
OF (OCPCO) I41, 14) he 
TRIN) © TMOI6) 
TRLIS? © CCLOWE) 
TRU1G) = SINDIG) 
TRLL7) = COBOIE) 
@ TO 150 


LOAD REF LIME DATA 
TRULY) © TANDITD - Tid) eTOGHtIO! 
TRING) © TOOMIIOHeCCLOITE © CCLOWI 
FRCE7D «© DELIZSORTIOUED © TRESDOTRC Ie) 
FROIG) © FREIND PTREN7) 


WING AND CNPENNAGE MODULE - 


&.0006 35 
0.000640 
#000650 
4.000660 
000669 
4.000670 
s.000680 
a..000690 
4.000700 
4.000710 
000720 
a 000730 
000% 
L000 HD 
a.000750 
000760 
a1.000770 
000780 
000790 
acc00s00 
4.000810 
4.000819 
000820 
aconoa?9 
M0000 
000850 
2.000859 
000860 
4.000870 
4.000880 
4.000890 
4.000900 
000810 
ac.coos20 
4.000930 
4.00090 
M0009" 
AL CDOS 
sc. 000930 
000960 
4.000970 
a.0D03980 
4.000990 
#001000 
4.001010 
avo01020 
4.001030 
M0010K0 
4.001050 
2.001059 
4.001060 
001061 
4.001062 
acon:0s3 
001088 


S°CONSTANTS A AD OB FOR MIVLM) CACIAT LO. AEF LINES*® §=M001070 


TV418) © TH2). .050¢3) 

THC2UD & TTIW) 7COSOLS? 

TUCUG@) © FOOMEBI/TT(2srecOrsd - QiareTOCMgrrsTrcaun 
TT120) © TOOMIBI/TII21 91D 31 oTOGe> - OLidd 


eoTW SETS OF CONC. AIMOADS*® 
SOREF. LINESLOAO REF. TORUE ARM TO LO MEF LINES? 
OO 1500 I1,12 
Tach) © OCts) 
CONTINUE 
OO 151 [91,2 
Me [ROIS - wie 
I (CAL BONDE 151,091, 1908 
TRILD © CALINOID 
f€ TRIED - Oreo) 1902,1902, 15903 
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001071 
aL0D1 072 
#001073 
A0D10% 
a001¢77 
«0010 
001079 
aL00j 080 
4.00108) 
a0.001082 
4.001083 
AL 00100% 
4.001003 
4.001086 
#001087 


ecm 


2 


8107 teeut LISTING ITO LOM CHART SET - SHEEP WING AND CPPENUCE MOOKLE - 


Cam ND eses CONTENTS, core 
e3 tS02 TRIED? © TRiLF BOR 4.001089 
wm OSOS TRELS) © TRE DeTTCS) © THiG) 001009 
bd tRiLe2+ = TRELDeTANMOLED © CCLOGL) #001090 
es TEGae) © CALL iMeas 4.001091 
ee? WF ATTA SD = OLldd 150%, 150, 1505 a0:0392 
oe 150% THtaet © TT Ser TR 13) 2.001093 
bs] USO5 TREBeSd © TRITeSt © Thiaed MOO1OW 
930 TRileG? © CALMS &0010%5 
ou) TRILe@s © CALLINOS) 001096 
e32 TRUDC1O) © CA TINGS? 4.001097 
933 ¢ #001037 
on ¢c *10"1 FOR INPUT ALAO, 10-2 FOR INPUT SHEPT LOADS* 2.001098 
ti] 16 (CALICND + OF199 1906, 1506.1507 au.001099 
os 1S0B TRILCB) © CALLING IOTRIET? - CALE GMOS? °TR1 16) 4.001100 
937 TRILORC) = CALLINGSICTRENT) © CALDINY) PIRI) MOD1105 
ow c 001101 
an ¢ LAPDA STATION AT EA, DELTA K TO LOAD AEF LINES m.001102 
wo 1907 TRijeys = TRI? m.001503 
wl TREUD) © TRILDOTRIISE © TREIS) - FRESo2) MODI 
ad IF CTANDC3+) 1508, 1509. 1508 aLonil0s 
3 S508 TREES) = TRIDe2) - COTEACTRGI) 0.001105 
or TRE DOM) © CTRITBE - CCLOU3IIZIFANDI3) - COTEAI/COSOI 3) #001107 
1S TRELS) © CTRL D - CTRCLSD~TROLSD9 74 TRC 14 )-COTCAD I /SINOCS) 40001108 
Oe 0509 TRILS1O) © TRiPotOr © TRIDOG) *TRCLS) 2.001109 
WT 1St) CONT IAM 001110 
we mooi 
we CALC V.N.E AT B1 STATIONS ON LOAD REF LINES? mooie 
0 1910 00 152 Net, 11 aLoDiis 
6) me NDII2) - 001120 
2 THi22) © O63) 001125 
ws THI23) © OCt3) aL.0D1130 
= THiae> © OCId anus 
fc) OO 1512 Iet.2 MOLINO 
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DFS FORMAT (1H GX, 13.F IO. FES. Ft. Landes. 8 eae 4.001380 
7B WRITE (6,17) L001 385 
OO 177 Welt) 4.001390 
WRITE (6,1 759N, ALPVIND ,ALPMOND ALPTOND AC NVIN) , ALNAUND ALNTOND 4.001400 

177) CONTIME 001416 
c AL0D 1420 
17a ForewT IGHO TT} a.c0i420 
179 FORMAT ¢IH 14,5£16.8) 001421 
WRITE (6,178) 4.001430 

00 100 1.21.5 ALCO INNO 

K = No NIN) A.0D1450 
WRITE (6,0 7OIN,UTECD), Boma) a0.001460 

190 CONTINUE AL.001470 
ALODINTS 

c FORATIO TABLE CC® 001479 
WRITE (6.1012 m.0D1400 


181 FORMAT (1HO, 36%,28H-9*-L0ADS SCALING RATIOS-9°-7/21X, 
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Do 4.004993, 
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CAPO NO LB I-46 
eOPUNCH ID © OINTP 8 DeNG = PUNCH DATA? 
we nO) 
K © 2) 


WRITE (6, )500:NCASE 
CAGE NO.13.95H 
1 GC ARRAY DATAS** 29K, 1H" WELOD 907) 


WRITE 66,1500, (BCT E, Bel ©) KR, NCASE 
IF COINTP) 1Sn2, 1542, 1901 


1908 PUNCH 152.N, (OCC E) 191,42 .K.NCAGE NW 


10 Format 
11 FORMAT 


Foreur 
Fommar 
Fomur 
FORMAT 


13K, 63,46 16.8, 10K, 05,0. HC ESD 

19K, 03,012.59, 12K. 00 03, 0HC, 13) 

43K, 13, SE26.0,2%, 01,13, 0HC,03) 

€9K, 13,90 12.5,19,13, 100 13) 

(2M +, 1K, 03,016.6,66K.10,53,1HC 39 
(1K OX, 13,612.5,90x. 01,03. IMC, 13) 
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WO0TO100 
WODTOIOL 
wOOTOLO2 
WODTOI103 
WOOTOION 
WODT0105 
€M00T0106 
WODTOIO7 
WooTO109 
wMOOTOIIC 
wooTol20 
wonroi2t 
wOOTO122 
WODT0123 
wmonToiey 
wooTal29 
MODTO130 
WODTOWO 
WOOT0350 
WODTO360 
wooTO370 
wODTO380 
$wO0T0381 
wooToss2 
WO0TO390 
ii 0400 
WODTONIO 
WOOTON20 
MODTO4 30 
WOOT OO 


MOD” 650 
MODTONEO 
MOOTON 70 
MOOTON TS 


COFLEXIBLE LOADS GENERAL DATA.WOOTON7E 


WODTON 7S 
MODTONGO 


L tal tae) 


Cad NO 


7 
1705 
1708 
1797 
1708 


(7 


1731 


ime 


13 


1™7 


1B 


171 


UNAUT LISTING MUTOFL OM Cort SET - SEEP 


c 
Ime 


tw 
1% 


1210 


ait 
1ai2 
12u3 


124 


CONTENTS 


OO 1% 5,165.5 

Lome wie 

CRITE CB 1SSIN BCU ED POL) CASE 
36 COINTP D155, 195.13 

PUNCH 10, (BC UTE DOME MASE LN 
CONT IMUC 


COPUNCH X-LAST CARD FOR BC ARRAY, §LOC11 70190. 0°" 
we 1 
WRITE (6, 1S4O2N OC ES) KL NCASE LN 
IF COINTP 120.120 156 
PUNCH 1901 OC 13) RNC ASE LN 


SOSLIUP OUTPUT DATA FOR FLEXIGLE LOADS ANAL YSIS¢* 
00 121 fet, 100 
TOR( 1) = OCedr 
Tess i) © OC13) 
TCS(19100) = OCC3) 
(CONT LMU 


TCSt1d © Wt 

test2) ° we 

TOS13) © ATANITANOI3I) 0116) 
tosteh © COLON) 

TCSt47) © TO13) 

TCS(G7) © CCLUIGLD 

TOSia7) = COLNE 


SCALE FACTORS FOR OLSIGN E AO Ore 
Tosi@e) » B11) 
TCS(@B) © O11) 
WF COEFLD 1202, 8212, 1280 
TCs1@@) © OEFL 
W (OC1O) - CEFLY 1200, 1212, 0212 
TCS$(6B) © OEFL/CCI1163) 
IF (OGFLD 1219, 1219, 1213 
TCSi@a) © OOFL 
1F (O10) ~ OOFL 1214, 1219, 1219 
TCS(GB) = COFL CCI IG) 


MONE YEA STATION, £1, QUI2-18) AND LOAD POINTS 1-109 
THI) © OCe3! 
00 122 191,10 
TSC 1enS) © TGItets 
TCSthe@s> © CCLILe161) °TCSi 68> 
TCS(fe@Bt © CCMC lel 7ersTCsiae) 
THCh) © TOACh 22) 
1F (1 -199801 9501 9505 
IF CIP (35119502 9502 , 505 
WRITE(6 9503) 
FORMATIIWI, POX, I9H** CTOT (CA LEO FROM WFLOD) - IPI WB) 00) 
CAL CTOT 
TORI T+20) © YCIS) 
TORL1¢30) © YCt2) 
CONT [MLE 


SETUP POINT 2° 
TCSteG) © CTGIZ) - TO1ddd7OI4) 
WF CBiSO27011Gr - TCSiNBd) 123.1 ty 
TCSINS) = @1802/0110) 
TCSteBd © TOSINBr © TOC1d 


INTERPOLATE FOR C5 .Gue 
CML TPINTETOL ID .CCECIGI) POS INGI> 
TCS16B) © Thar etch ea) 
CALL TPINTCTOIL? COHEN 72). CCSt4@0D 
TOS(GM? © THis etCSiees 


SoSETUP WT FACTORS FOR FLEX LOADS FUEL CELL 1 A arte 
TOR(G3) © TwO1 385! 
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MIND AND EMPLNNACE POUT - 


w0010 700 
w0DT0705 
waoTo710 
woote720 
WOOTe730 
SOOTOMO 
wO0TeTRO 
wOOTO76O 
woota770 
W010 780 
wooTo790 
wOoTo7a8 
woOTo a9 
WOOT oROO 
001 0801 
wootoRoe 
MODTOBO3 


MODT 1000 
wopTisio 
WOOT IO26 
worse 
wot103) 
woot ea? 
wootie33 


ATT AR crue 


a Binh 


Ca 10 


1773 
1% 
in? 
the. 
i” 
78 
7 
ivep 
(%3 
Lh) 
(7. 
ims 
1737 
ime 
(708 
170 
17 
ime 
1783 
(7H 
7 
is 
1”7 


(eet Liste MIICOFLOM CHART SET - SHECP 


eee CONTENTS 


WING AMD COPE MODULE - 


eoes 


TORI) ¢ Ti 3EB) MOOT IOM 

Tom«6S! © OT worl 

TGR1G6) = T1400) MDT 1038 

TORE 7h e Ta BOB WOOTIOS7 

TOR(GO! © THI des) OT 1838 

OO tav8 tot .2 woDTie» 

WF CTGRI1 O61) 1269, 1268. 1240 MOOT IOND 

BRO IF MOF LID Lee 10, 1a MOOT ION! 

TEL TORCH OOO) © OF wild eromi t-é2) MODT O62 

AF (ON) = OFM UEND 1262, 1268 1 MODT IOS] 

Was2 TORI +60) © OF wild WOOT ION 

WF CTORG19G2) - TORCL9GOI) AVE, 124, 120% WOOTIONS 

123 TOMT1 GO) © TORIN+E2 HDT 1ON6 

bee TORTS 660) © UTGRIL+G2) - IGRI eG) © TORI Loge ds TORt 1 +G6) eOOTI1017 

t26@ CONTINUE wooTIMe 

c MOOT IONS 

€ COCR PANEL ME “TTS, POMIY.K), IMERTBAIPITCH. MOLL Dee? WOOT 1050 

¢ OOK UFUEL ALD POTORIGL), KIFUTLI2) @TORIGZ ICC? MOT 1060 

¢ 6DT 1870 

c MOOT 1680 

OO 127 tet,18 WOT 180 

TOSI howd = CLEMCLo@l bo CTERCLO@L » © CHBECLeBI) © Coehache@ir © TMOOTIIOD 

NGRIG1 POCHLILCH BID © TGRIG2 DOCKLELINeOh) MUDTIIIe 

FORCED © CLENCLONORD © CTENCI COZ? © CIBEII91G2> © CHINAbesB21e MODTII28 

TORS) VOCFLELCHO1OR) © TORCGE NoCFL2n(1 e162) WOT 130 

TORE Do1Od © CLELCEOLISE © CTELCVOLE32 © CTMICR SAS) © CENGH OES) MOOTINNG 

Le TORCBL POCFLIDELONLYD © TORGEZ POCFLZTCIe1E3? MoDT1 ISO 

TORE LomOt © CLELCLOtBed © CIEL S12) © CBI s20d © CHUTE Teter MOOTIIGO 

Co TOMCGL VCFLILCNoLaed © TORIGE DoCFLZI (Leng woth 70 

YOM 1050) © CLEUITeLIS) © CTCICLOL IS) © CIBUCLeN Ie) © CMIICIeL IS) MODTIICO 

Lo FORIGI VOCFLALELOI1 IS) © TORIG2 D>CFLATILOI IS) wanDt 1190 

c woot 1188 

eTEST ZERO EIGHT? MOOT 1200 

W atCSeleety 125,128,125 wmODTI2ZI0 

185 FORETD © TORITE/ICSI bee) want 1220 

TORI G18) © TORLTOIOD/TCSI Low? T1230 

¢ MOOT 1238 

c eonsC. PA CO LOC AB FRACTION OF TRAPEZOIOM. CHORDS? 1011239 

TESCDe1Gd © CTGAL DoE) - TORMILO1O) = TORI e3012/IGRI 120) MOOTIZNO 

@0 to 127 $01 1250 

c W8DT 1260 

¢ iTe0. URE AMM AT Cae WODT 1270 

12GB TCSEbeI%) © LTGALH O32) - TORt1630b)/ TORS 128) woDT 200 

127) CONT IME woot 1280 

c wnot 1 Joo 

¢c PUNCH FLEX 10005 DATA FOR FINED MIMD Gaye W00T1310 

c °FLEX LOAOS CATA. PUNCH BF ARRAY FORMA! FOR DECRDS: Pintelss 

€ HO CH 72 FOR BEEP II, CO Pe-M-CAE OO. Pinteied 

¢ Ca TieF FOR OF apmaye PLNTe170 

¢c COL FB-O0* OF ARRAY uc OF FIRST FIELD DATA.¢ Plntelm 
¢€ eeTEST FOR PABOED Datars 

c Pintezie 

100 WRITE (6, 1O1INCASE PINTOIOO 


10) FORMAT Cidi |=CAGE ND. 13.95H 
1 @F ARRAY DATAte® 29K. 11he* WLOD ees) 


we Ol 

ao mt? 

RATE (6, 10316, TCSCLD TOSC2) MMC ABE 

IF (OINTP) 1052, 1052 1018 
8018 PROM 162,06, TCSIL) TCSIR) A MCAGE LN 
102 FORMAT 19K ,13,8F 12.5, KSB 
103 FOMUT (3K,53,F 16.9.90K,11,13, 108 139 
100 FORMAT 160,13, 9012.9.01.13, 100 13) 
103 FORPMT (3K, 13, 9016.0,2K,11, 13,00 08> 


1050 FORMAT 6 iM- 00. 13,012.9, 00m. 1113, 1 13? 
105) FORMAL cay - 10th A Se Lee 
¢ CARD WD. 2° 
CORR We 0OCd? 
ALTE 6G. 1O30, 1CSC31 PCSIes CAE 
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COPFLEXIBLE LOADS INERTIA DATA.PINTOZ00 


Pinteaee 
Pieterso 
Pintane 


P1nterso 
Piw'eree 
Pinstere 
Pintereo 
Pinterse 
Prtepee 
Pintezes 
PINTO3OS 
Pintesie 
pPintesze 
Pintes30 


B710/% 


CARD WO 


We@uT LISTING MUTOF LOM CHART SET - SHEEP 


CONTENTS. 


UF EDINTP DIO . 105,153 


1033 PUNCH 162.6, TCS¢3),1CSt%) a NC AGE LM 


c 


CAROS 3-6° 


10% 00 106 5.20.5 


Lome mie 
WRITE (6, LORIN, CTCSEND, LOM LD RNC AGE 
16 cOiNTEH OE SOK 


LOSS PUNCH IO NLETCS 1), 19M.b DK NCASE 
106 CONTIME 


c 


cmD’* 
we 
WRITE (6, 1O3IM .CS125), 1CS(2G) .K NC ASE LM 
IF CDINT 11061, 1061. 1060 


1060 PUNCH 102.N.FCS125). TCS 26? .K NC ASE 


€ 


CARS 8-23* 
1 OO 107 W27.182.5 
L = Nene) 
ARETE (6.1059, CTCSEI2, DOME. NCASE IN 
IF (DINTP}107, 107.1082 


1082 PUNCH 10%, 0TCSCED DON L? KL NCASE 
107 CONTIME 


¢ 
¢€ 


COPRSEH X-L AGT CARD FOR OF ARRAY. LOC1187190.8¢° 
wo 107 
RITE 66,1051 00,0013) .K MOABE 
IF CDINTP 488,92. 108 


108) PUNCH 1050.N,0C( 3) .K .NCAGE 


eeooEK| Teves 
wc T UN 
oo 


WING AMO CHPENNALE MOOULEE - 


PINTO 
PINTOISO 
Pi~to%so 
PINTO370 
PINTOIO 
PINTOssO 


PINTH00 
PINTOVIO 
@INTON20 
PINTO30 
PINTONND 


PINTONSO 
PINTONGO 
PINTON 70 
PINTOeO 
PINTONS0 
PINTOS00 


PINTOSIO 
PINTORZO 
PInTosZe 
PINTOS30 
PINTOHO 
PInTesse 


PINTOS60 
PINTO 70 
MODT1 HO 
WFLDSB00 


wL09999 


Cococceecovecccccccccsesecocuccseusceseceueseseusecocuceestsccasesesnetce 


c 
c 
¢ 


Cecovecessecscessussucuversuseseuseascssscees 


c 


ana an 


eee eeSUBROUTINE WWTDD 
¢°MGS/DLSION DATA EVALUATION FOR FLUTIER OF’ PROGRAN?+® 


eveoveeses 


SUBROUTINE WAT DD 


SOQUTPUT FLUTTER ANALYSIS PUGS PROPERTIES Datace 


Conon 1 
COMMON /IPRINT/ 17160) 


DIMENSION 117420) ,D12060) ,CO1 20001 .ND1 100) ,0C 1100), TH19001. 
I¥CC 150} .YICIGO? 161300). THGI4O0) .CCEC300). TCS¢250), 
QCLE L150) ,CTEL 1150) .CFLE14 050) CFL 211150) Cm tsa, 
BOCOL 11158) , TST ISO), TORt 100) .CTBICISO), 
STANDI9? .CCLOI9> ,SINO(G) .COSOIS), 
SOW (2) OW CI2), 
e0cm. 1100), 
orrraes 


EQUIVALENCE (O11), TH20G1D) CCOLLD, THM12199 CMOCTD TS12100, 
VED OTD DESVOT de ATTEND Feng d CYCCOD TESOUDD CVPCC TD TERSinD, 
QCWSO2 TUG dd, AMC LE TeS220) , cwS1O2, 701509, 

UCTOCLD .TEsOOLDD .CTAGCED TEL BOUDD, 

MCUST CGD Tee POn ed, CVORCED, TOL POLE? CCTBIGE) COI eSad?, 
SCCLEICH) COUGSIED IC TELL) COCSONDE CCHLASCI? COIMSIDs, 
GUCHLZICTD COCELOIDD, CCMIIEL) COCI2S00)  CCCOL ECE? COLSON), 
TICCIELD .CDC1@S199,CTCSCED COC INO, 

OtaC lO. Bt4300», 

B60, DC 3O0T 1 MESO E, 1 DESL OL OCP) UMTS TID 


CQUIVALENCE (TANDELT TEI220D CCCLOCEE TEOBE ED CSENDCED,VUINBis, 
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woDTeoso 
wonTe100 
wooTeld! 
wooTe1e2 
MODTSLOS 
WOOTOIO 
woDTo1es 
MODTOIOS 
wooT0107 
woDTe10e 
wooTelos 
smDTe110 
WO0Tb120 


ee 


100% 


Cam WO 


wo? 


POUT LISTING MUTOFLOM CHART SET - SHEEP MING AND COPE NAGE POOL - 
cose cow" eros 
PECOSOLEE TCISGIE CW KEP 013080), wooror! 
QCD 012951). (CHS 012869), 1OOMIY OV 2R7)) , (OOMIN OI 2EBI), wmoror? 
BUGS DISHPID  MHCY OF OOF EM OV IONE, wmorel2) 
WUNBCEY OC S02 ED SCI .OC 30371, TUPI OF OND, WmOTOIEN 
Sc VE ALT 01 30501, (WR D1 30611, (WOE 003079), 1 0G .0: 3082, wOOTOIeS 
DIOWEF EG) O12 TEN) COW CEE OZ 70H) COCOL IE) OF N@HSaF worei2s 
c WFO8IYO 
¢ worl 7se 
¢ ooeTES! FOR ADV. COMPOSITE OFSIGNS+? MODT 1780 
¢c 1 AQV. COMPOSIIC, SETUP STIFINESS DATA FROM ACD 18° =NOOTI770 
c OME AD DATA IN COt1401- 1800), PROCESS AND CLEAR® MOOT! 780 
CF CAC IDE UFO. 18078 MOOT! 780 
070 CALL AE AOMS 11,CD1 1401) .400, 0%) wooTie0o 
OO 17t feb tt worie10 
CCL111601 © COIleISO7> MOOT 120 
COHN TED © COC tS) woot1e30 
Tet 1836) © COLI e608) MOOT ISO 
Tet 1+@57) © COcleiSae! woorieso0 
7) CONTINUE woorrese 
¢ 011870 
CCAS) © COVlelor o0T1680 
COICION) = COLISES) MoDT ESO 
MOT 1S00 
OCLC AR COL 1404 -18001e* wmooTis10 
OO 17% tot 900 wor azo 
COtlet4OO) © OCt}? WOOT 1930 
(72 CONTIN WOOTION® 
MODT ISSO 
COCLEAR TST amtayer ODT I960 
(7%) 00 179 t+1,.90 wm0T1970 
TStely © OCB wnDtIS80 
179 CONTINUE wODT 1980 
“aD12000 
2 00GE TUP FUEL FACTORS TST19e, BS) FOR FLUTTER ANALYSISS*" WODTZ0I0 
(ao TST13S) © Tet Bes) wooT2o20 
TStiye) ~ Two0 387) wmore2030 
TST(6O) © THO es) WOOT 200 
TST137) © THO: 98) WODT2030 
TST13O) © THGI4OO) woDT 2060 
TSTiet) © Teo dee) WODT2070 
OO 186 1et.2 wooT2080 
TSTcfe33) © OCI3) wooT2090 
UF CTSTt1e 38>) 166,108,161 wobT2100 
(8b IF 1OWFCtIT) 105,165, 182 wmoT2t10 
(O2 VSTILO33) © DWFILDOTSTILewS) woDT2120 
RF CDCED = OWT UI)) 103,165,105 woOT2130 
(03) TSHCheS3) » OWEN) MODT21%O 
IF CTSTCLemS) - TSIEN EB) 104,105,105 wooTe130 
We TSTCHOTT> © TST 6 3S) wO0T2160 
19D TSTULORED © CUSTILO HSS - ESTCLOFID © TETCLOSTMOSTST CLO DDD woDT2170 
(6B CONTINUE 02160 
c waoT2190 
c SORE TUP FOR COL I163 Peeler maoTa?00 
¢ CHECK 61.2) FOR CELTA WT INDICATION: wootez10 
c IF (ONDT ZERO COMINE. IF ZERO US = .. ke worz220 
¢€ wriz2% 
c ORTORE (he3) OATA IN COL U1), (Be) DATA IN COL C2) BLOCKS 12230 
OO 19 Mel 2 MODTZ2N0 
Ke WONDCI2) - MOLINE) MODT2230 
¢ woorezse 
c CPNE COLI1.2) 10 TST1-TIe woDTze6s 
¢ COON COLLET.) TO TSTI22-33I° MODT2261 
c ONE COL C3.) TO COED. 2De epreeee 
OO 167 fet .i2 wmotez70 
hemet- mip wmoT2200 
TSTC16H5) © COOLITILI woreeso 
TSVereRi) © COM TILemD wont2300 
COOL IIL) © CCE IL om) wooTesio 
(67 Contig wmoT2320 
woote330 
OTe HO 
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Sa gee 


ae 


LAL aad 


CarD 0 


(emul LISTING MITOF LON COURT SET - SEEP 


CONTENTS 


COCOMBING 1 WITH 3, 2 WITH NS. TEST FOR UT 13° 


*1F 10 IM DATA SET LOC I2 FOR COLEL.2)21@ COPBINE® 


elf 10°0, USE COL13.8) OMe 
IF CTSTADSEd 19%, tH, 1080 


(OBO IF COC IKoL EDD 190.19, 189 


c 
1% 


oanannannnannanana 


$F 1OW Cin) - OFb) 190,190.59) 
TSTIWGs = OWCIENtTST( 36) 

90 TO 182 

TST6e@) = OW CIN 

UF LTSTICMd ~ TST) 192,196,198 
TSTteG> © OLED - TSTie@o/TStc wer 


SCALE COLUN.3) WT AD IY, X,20¢ 
TSTU3S) © TST Ie TST Ce) 
OO 193 t91.3 
TSTCloles © TSTeho3os eTST ee 
CONT IME 


CALC COMPOSITE K.2 CGS 
CCOLI(K) © TST¢22) © 151136) 
CCOLIIKOED © CTSTUWIOTSTCSTD © TSTs22eTST¢23) 0 /CCOLPIK) 
COOLNIKO2D © CTSTIBS OTST CBO) © TSTC2216TSTL 201) /CCOL ACK 
CCOLI(KeSh © CISTIMBIOTSTCI9I) © TSTc220eTSt (252) /CCOL EEK? 
COOLS tmoBs @ TSTI30) © TSTI2e) - COM LiKe? 
CCOL tke TSHCSid - TSTt2S) © CCOLEIKe2D 
COLI (Ko10) © CCOLLIKOd) ~ SINDIS) °CCOLTIKe2) 
CCOLNIKOL 19 © CCOLIIKe2) -COSO13! 


eoncvyd, LimKr, peZzice 
TSTC1G) © CTST CIB) - CCOLMCmoz LISTE SB) - CCOLEIKe2d) 
TSTLIG) © CTSTC Ae) = CCOLUIKO2IICLTST Cyt = CCOLNCKe2I> 
TSEC2h) © ATST9D) - COOL LIKeS CITSTC3G) - CCOLEIKeS2» 
TSICLOd © ATS AAS) - CCOLTCKeSNeCTSTIZ5) - CCOLECKeSo> 


WING AND EMPL AL POOLE - 


WOOT2810 
WODT2620 


COOL TIKou) © TSTIAS! © TSENG) © TETCAACCTSTAISe © TSTI20)) © FSTHODTIZE3O 


SCRBRCCTSTCID) © osicaerd 


WODT2040 


CCOL (KS) © TSTI27) © THTUHhs © TSPA2IOTSTI20) ¢ TSTC Mr eTShi2) WOOTZESO 
CCOLL(KoG) © TST(2H) + Titer © TSTC22.eTSTC1S) ¢ TSTCB5) 91ST 6 1S WOOTZE6O 


LOOP FOR MET 12.4)° 
CONTINUE 


CCoSETUP OLTPUT DATA FOR FLUTTER OPT. PROGRARCS® 
SCONE. NAC /STORES® 
STORE WUCE.LE DATA STORED IN COL(1,2) GLOCKS¢ 
SOOSK. MOL/STORES AT CH STA f AND 2 OLY. 2° 
LOCATE ONY THE EMPENDAGLE STORE WT. AT STA 1.2¢ 


CLEAR TOR AO TCS ARRAYS? 

OO 201 [91.50 

TORII) © OC43? 

TORT 1040) © OCL3) 

CONT IU 

00 202 t+1,250 

TCStI) © OCL3> 

CONT IMU 


OME €1.0 DATA TO Cc™@ 1 LOC? 
OO 203 f-1.11 
COOLS 1oOt1 © CCHCIoIGOD 
CCOLICH1O2) © COLTON TED 
CONTINUE 


oo TUP BASIC DATAce 
CCOLECIIW) © CCHIIG3) 
COOL NCHISN = COT Choe) 
CCOLTG118> = COULIOS) 
(F (WOE) 206,206,205 
CCOLTINt © WOE 
tf 1W0G) 208,208,207 
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wonte6 70 


wooTsi00 
Moors 10 
woDTs120 
w00T3130 
MODTIINO 
wooTs1S0 
MODT3IGO 
WOOTS170 
wooTs:80 
woOTs190 
wonTs200 
WOOTIZ10 
woorizeo 
woot 3230 
HDT 120 


T Yat Tea) UT LEST ING MUTO LOW CHART SET - SELP WING AND CRPLNNAGE POOLE ~ 


CARO WO eres CONTENTS, eeee 
ao ae7 COMICS) © WOO MOD! 3200 
aese 'ODt i288 
aesi ¢ @ooEC ME EI/G) 10 OLSION C 40 6 VALES@*C? aot wes 
aeaz BOB TES) © CCOLIIIINI/CCH CIOS) WOOT 3290 
aes) TiS) © CCDLUILISIZCCI CIO) wT 3291 
aon ¢€ WOOT S291 

OO zeso fel.tt MODI Lee 
CCOLSCEOBID © CORUCE OL eTtiss WOOT 32 
aun? CCOLIELeI1G2r = CCOLUCTefO2reTTies WODT3295 
PT Pe SOA woDT ees 
TUtto@S7) © THENe@ETI OT TINE WODT3297 
neve 2080 CONTINE MDOT 3300 
aon ¢c MODT3301 
acre € eeeSeTUP FLUTTER DESIGN SPEED AD DINSITY OF AIRee* WOOT3302 
ay ¢ “DATA TO BE 1. INPUT SPEED IN IOOTS AND AIR OLNSITY. WODT3IOS 
an c 2. INPUT ND. PLUS ALT. ANO/OR PHOLAIRD © WODT330% 
an c INPUT MEQD VI SPEED = DESION Vit). WODT3305 
ae € ACT PLEO REQD WILL BE FACIORED WITH WOMAROIN K=1.15* WODT3306 
aor? ¢ “MAX SPEED WILL MOT BE OREATER THAN Mel .@ AT S.L.° 40013307 
aon ¢c OCtIei= 1.0. FOR OREATER SPEED THIS VALE MST BE | 9=(MODT 3300 
aeve c COEDS «= (NOTE. - IF INPUT SPEED*0, USE M MAL AT ALT) =WOOTS309 
e080 TTES) © WALT - OCIS) w0oT3310 
20a) If (TTc1)) 209,208,2080 e0T3320 
eeaz c MOOT 3328 
2083 emt. LESS THAN W332 T° MODT 3329 
ae 200 TTt2) = OCUEZ) - OCLLDIOWAT 0013330 
TTt3) = DEL) - OCLIOIOWAT 0013335 
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WRITE (6 2OBONCTCSCL) Pedh EP CCHS CCU 1S) MCABE LN 


IF LOINTP 1229 .228 2200 
PICH 208,1TCSIT) Lest ue) CCHS) .CCLi se 1S) K NCAGE Lb. 
CONTINUE 


SoCARD TYPE 11. » ND OFCARDS** 
FUMED POINT BOUNDARY DATA. %/CARDS 
tem 
OO 23) I.A 
momo MDD 
Jt eo UNOIe) - NDIN) 
20 236 Ie1,4 
MWe Ji el 
NDUTe22) © TCSi eo) 
CONT Ina 
ARETE 16,21 1001ND11 622), 101.4). NCAGE LN 
OF (DINTP D231 231.2300 
PUNCH 211, C1622), Let 9) kK .NCAGE LM 
CONT IME 


CCARD TYPE 12. MNO OFCARDS, 3/CARDC? 
te mite 
©O 232 wI.M 
Momo mM 
Bo sis) © 207 
jbo RB - ma) 
RITE (6, 21200 CTCSE 1) Pod) Ue), K,NCAGE LN 
WCDINTP 232.232.2318 
PUNCH 212, 11CSC1). Boss UR) KC AGE LN 
CONT [NUE 


“CXIT FLUTTER OPT. DATA PUNCH- 


ooctnitoss 


2391 


MTC LOM CHART SET - SEEP 


WING OQ COPENNACL POOL - 


Plntsese 
PINTSBSO 
PiINTsO70 


Pintseeo 
PINTSe80 
PinTSe00 
PINTSBIO 
PinTsaze 
PinTseso 
PINTSONG 
PinTseso 
Pintseso 
Pint9a70 
Pintsseo 


Pintsae0 
PINTEOOO 
PiInTsoIe 
PinTeo20 
PINTEO30 
PINTEOND 
Olnteose 
Pimteoso 
PINTEOTO 
Pintecso 
Pinteosa 
PINTS100 
PINTE1IO 
PINTet20 


PINTS130 
PINTS INS 
Pinteise 
INTE Leo 
OINTE1 70 
PinTe1e0 
PINT6390 
PINTEZ00 
PINTE21O 
PINTE220 


PINTE230 
PINTE2NO 
PInTe2so 
PINTEZ60 
Pintez7e 
PINTSe0O 
Pintee30 
Pinteate 
PInTSoOe 


i 


